home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00055_Script_New Behavior < prev    next >
Text File  |  1999-03-07  |  3KB  |  91 lines

  1. on exitFrame
  2.   global currentplane, OCreentryflag, OBctotal
  3.   global currentChartName, compdrawplace
  4.   global cheraseflag, defaultflag
  5.   global flag_Hour
  6.   
  7.   set cheraseflag = true
  8.   
  9.   set compdrawplace = "hourly"
  10.   --    getAircrafts
  11.   initcurrentplane
  12.   if flag_Hour then
  13.     if OCreentryflag <> 3 then
  14.       getOCHours
  15.       getOCRegions
  16.       if defaultflag <> true then
  17.         getOCDefaults
  18.         set defaultflag = true
  19.       end if
  20.       set flag_hour = FALSE      
  21.     else
  22.       set OCreentryflag = 1
  23.     end if
  24.   end if
  25.       set currentChartName = "all" 
  26.       set the text of field "displane" = "No Competitor"
  27.       set OBctotal = 0
  28.       getAircrafts
  29.       set the text of field "cmisc" = " "
  30.       set the text of field "capu" = " "
  31.       set the text of field "cengine" = " "
  32.       set the text of field "cair" = " "
  33.       set the text of field "cfuel" = " "
  34.       set the text of field "aaplanename" = currentplane
  35.       set the text of field "aachplanename" = currentplane
  36.       set the text of field "acplanename" = "No Competitor" 
  37.       set the text of field "achplanename" = " " 
  38.       set the text of field "acbartotal" = " " 
  39.       set the text of field "aabartotal" = " " 
  40.   --  mainbars
  41.   --  if (OCreentryflag = 3) and (length(the text of field "displane")>3) then
  42.   --    compbars
  43.   --  end if
  44.   updatestage
  45. end 
  46. --on enterframe
  47. --  puppetsprite 22,true
  48. --  set the rect of sprite 22 = rect(292,230,483,413)
  49. --end
  50.  
  51. on prepareframe
  52.   global flag_Hour
  53.   set compdrawplace = "hourly"
  54.   clearpups
  55.   if flag_Hour then
  56.     getAircrafts
  57.   end if
  58.   set the text of field "cmisc" = " "
  59.   set the text of field "capu" = " "
  60.   set the text of field "cengine" = " "
  61.   set the text of field "cair" = " "
  62.   set the text of field "cfuel" = " "
  63.   set the text of field "amisc" = " "
  64.   set the text of field "aapu" = " "
  65.   set the text of field "aengine" = " "
  66.   set the text of field "aair" = " "
  67.   set the text of field "afuel" = " "
  68.   set the text of field "Lcairprice" = " "
  69.   set the text of field "Lcresidual" = " "
  70.   set the text of field "Lcdepreciation" = " "
  71.   set the text of field "Lclease" = " "
  72.   set the text of field "Lcnadirect" = " "
  73.   set the text of field "Lcnafixed" = " "
  74.   set the text of field "Lcedirect" = " "
  75.   set the text of field "Lcefixed" = " "
  76.   set the text of field "Lcnabudget" = " "
  77.   set the text of field "Lcebudget" = " "
  78.   set the text of field "Ldairprice" = " "
  79.   set the text of field "Ldresidual" = " "
  80.   set the text of field "Lddepreciation" = " "
  81.   set the text of field "Ldlease" = " "
  82.   set the text of field "Ldnadirect" = " "
  83.   set the text of field "Ldnafixed" = " "
  84.   set the text of field "Ldedirect" = " "
  85.   set the text of field "Ldefixed" = " "
  86.   set the text of field "Ldnabudget" = " "
  87.   set the text of field "Ldebudget" = " "
  88.   --  updatestage
  89. end
  90.  
  91.